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<htm l> 

<form Jo^-^Gt^ccrci.info' method= "post" ac£lon = "http:/ /payment. asp" 

<S9!-ct .'ame = ^-ard„«^Tpe" onCiick= -talk{g_card_types)''> 

<oo>'on vdl*je=''an^ex">iitnefi-ican Express</option> 
< jpt'on value= ''V9sa"> Visr</:;p.:ion> 
<opt;on vaiue= '.r .'-"> :-?£j**:orCaruV /option > 
</seJcct> 

^<reco id="s_car?l_C:ype3"onReco ="hsnc2le()" > 

'-^ < grammar src = "./gj-g^ ^card.types" /> 

</reco > 

<input type = "fce.tt' i.ame^; "-ard.num " width^'SO" 
onClick="talk(g_cara_P;;-Ri)" /> 
<reco id = " g_car£:_nuiv, " onRecc - "hacsdleO " > 

< grammar src = " !aits /> 

</raco > 

<input type='*teKt" name = * tj:^piry_c2at'&'' 

onC!ick="%3ik(g_exrsfify_ddte)" /> 
<reco i:' = "s_Bxpihy_d2£if< > 

< grammar src =" . ram # date c /> 
</reco > 

<lnput type="subftil£'* vales = "SabmE^'' 3nCIUk= "uen-lfyO" /> 
</fornri > 

<Scrlpt><![CDATA[ 

function talkvgobj} { 
gobj . activate* ( ) 

} 

function handle ( ) { 

if (get_card_in.fo.card_num ! null) { 

if 'g'et_,card_infOoCard_type. value == "araex") 
if (get_caro_info.card_r.nm. length != 15) 
alem {-'amey should have 15 digits"); 
} e J, s e 

if (gc+:_'::5.rd_inf o. card_rium. length != 16) 
ai^r ( isa ar.d niaster should have 16 digits"); 



— 222. 



— 284 



function verify;;) { 

var flag = wi?.dow. confirm ( "submit the credit card 
infc?"" J ; 

if (flag. { 

gfct ,c~.rc i-^^o -submit 0 ; 



</scrlpt> 
</htmlv 



< body > 

< form id =" s^;£_Ciird_irjvc " method ="posi£" qCcIct, =" http:/ / pays^«f**.-asp 

on Activate =" vr9!co«n(> "> 

< prompt id =" .'_iv'i;;;ottie "> Wa n&w neei ycu&- credit card </ prompt > 

< prorrpL Ic* =" p„i.iu«i 1>I6 "> S cSP^<r.'t urtderstand you </ prompt > 

300 < crcr.. .t ="?^ .,>arc£_ti iPi " bargein = " tru«^> What credit card would you 

■ ij-^rro: id =" v- ' J,.,n(i;i:: " bargein =" tru€ "> Please say the number" </ prompt > 

< prcTip; :J =" viif " b^rgtir. ="true"> What Is the expiration 
i»^c7 </ pr ompL > 

^__^,„„.— — orompt id =" p_can'ieR(: "> 
303 "'-'*''''^ £ have v^^'-" < vaiue select carci_type " /> < value select =" card_num " /> 

expiration dai:t£ 

< value select-" r-rxp^ry.da^--: " /> 
</ prompt > 

< prompt id =" p_*,c .-^fltrr, ' > is ihls correc'jT </prompt> 

< reco id = '' Q_car6_\:v»J«* " onNoReco =" jnu!:?^bl«{th*s, 2) 
onReco =" _handl©<.tE^!^. rTir<fi_ty;: *' /> 

< grammar src = " ./ gram #i'4«e'd_ty><s* " 
</reco > 

< reco ic3=" c„.:;srrt_nufK " onNoReco =" m umbte(this, 1) > 
onReco „^^^5ndle(t^:8, car*:_n-jnf» V /> 

< grammsi- src=** ./r'-'^:.i#dlflits " /> 
</recj > 

2Qg — " < icco id=" ja„exp*ry„dat " onNo^^eco =" mumblo(*:his, 1) > 

onftsco =" J(t?:\ yirv_,date} " audio =" rao " /> 

< grammar 3r:=^" s,-# dates " /> 
</reco > 

< reco ld = " conf!rn:ietiOj* " onReco =" confirmed(tn5s) " /> 

< grammar src = '' ./<5ra:3v^ves"o " /> 
</reco > 

< select .*ome = c^vCJl'ffi, ^ '> 

< option value ="anet' > Aiivirer£cdj3 Expi'dss <y option > 

< option valu^ vi*?. '> Visa </ option > 

< option value -■*u"jS"> [*^?j«4*>rCard </ option > 
</ salect > 

input type = ■* " name =" card_num " width -"30" /> 

< irp'.'t type =" ?:e?:;^:" nam^ =" «x(?!rv . Or.ft^i " / > 

< Input type = " «ubn;<C " . alue = " Sucsnlt " /> 

< / f'^-rm > 

< script > < ![CDATA[ 

function fielco-^'-i) { 



3G2 



checkFo.llp'i. ' ) ; 

fiu.ir.ticn mwaljle (c -bj , maxprompts) ( 

p_numble . active ; ) ; 
check: il ierl^) , 



I 

^^^^ 



fOffd 



fufictiori ..handleC) { 
Iian(<-:eO; 
chsckFilledC); 

f unction checkFilledC) { 

■jf (card_type. value { 
p_xard„t:ype . act* () ; 
g„card_type3.activateC); return; 

} 

if (car d_num = value ~"'*) { 

p„card_num.act':veO ; g_card_nuni.acti vateC); return; 

} 

if (expi ry.date . val L*e = { 

p_(sXFi r-y_data.acti veQ ; g.expi ry_date , acti vate() ; return ; 

} 

p_cont8nt.activateC) ; 
p_conf i rm . acti va lcC) ; 
conf i rmati on . acti vate Q : 

} 

function confirmedCgcbj) { 

if (cob j . recogRes . text == "yes") 
aet_card_info.subrmt() ; 

} 

// 

// user codes start here 
// 

function handleO { 

if (qet_carci_inf'^.c?rri„type ^= "amex") { 

if Cyet_card_info.card_num. length != 15) { 

prompt. speak Camex should nave 15 digits"); 
get_card_info.card._num = 



} eis 



Ise 

if (get_card_'r,fo.c;irQ_num. length != 16) { 

prompt. speak ('visa and master should have 16 digits"); 
geL_caro_infr,.card_num = ""; 

]j> 
</scr-'pt> 
</body> 
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<body> 

<form id=^'*^€it„card_rrcfo" nnet:hod="post" action="http://payment.asp" 
onacc; vste- w*-iccyT!©( )" > 

<pmr:ot U- 'ro_^veicome">W»5 new need your credit card</prompt> 

'P'^^rc?: r-^©_R»iuroibfe">A d:<d^^'t umderstand you</pronnpt> 

<pr .r i^-S^cae-d^type" b3!^c;ein-"true">What credit card would you 

use7</prorr.f>c> 

<prctnci; id-^f^^Gnrd^num^ bsr9ein-"true'^> Please say the number</prompt> 
<prorT;pt ;d='^p_exp5ry„date" bargein="true">Wkat Is the expiration 
date?</promDt> 

<proiT!pt id-^p^contenf^ 
I have your <valjj? select= 'C£rd_type" /xvalu^: selecc^^card^nwrn" /> 
with expiration data <ya!ue 5*?lect=''e^piry_date" /> 
</pronr>pt> 

<prompt id=*'?_conf!™''>Is tiiSs correc£?</prompt> 

<reco td='s_get_cardJrif!^''oriReco="_handSeO" onNoReco ="mumble(this)^> 

<5rammar src ="./grain!:/getPaymenf /> 

<birid tar9et="carc_tyg?)t^" vaije=V«^d/type'' /> 
<bind targ3t="card_nufR'= vali=e=^Vcard/number" /> 

<bind target="eii?l6if„c3ate" value=^"/card/expr_date" /> 
</reco> 

<reco id="confirmation" onRecG ^-confirmedCthis) onNoReco="mumble(this)" 

<grammar src =",/grafti^yes:J?3'"/> 



<option value="a?nex''>r:.tiijfef8ean Express</option> 
<option value="v3s3'' >Vs^<voption> 
<opt;on value="ms">Masteft<^srd</cpt;on> 
</select> 

<!np'jt type="tex\" na!^a="c£'^d„Tiyire»" vvidf :^^30" /> 
<ir!put type="text" narne=-"eii©cr^_date'' /> 
;ini:u«: t\'pe-"sub?n?f:" vyuc-'^SubniFt" /> 
</form> 

<scnpt><l[CDATAr 

come , &ct i C) ; 



function munible(gobj) { 
gobj .deactivate O ; 
p_mL*mbT e . acti * & 0 ; 




ccieckprnedC); 




function .handle { 
handleQ: 
cherkFilledO; 

} 
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function checkFi1l3:diO I 
if (carcLtype.va'riie = { 

?_card_t-;tit.activeO; ; do_fie1d.activateO ; return; 

*^f (caf:^,..,-»"^'n«v-i:^ - { 

p-card.rum.a jLiveO" do_field.activateO; return; 

if (expiry.aaCe.va'iUe — { 

p„expir>„riita>activeO; do_f1eld.activateO; return; 

p.content.acf'va* .jiO ; 
p_conf i rm . art'" vate ; 
conf i rmati on . £cti v? te f * ; 

} 

function confirmed (c'-i) I 

if Cgotj.recogXesT: Ves*) 

get_car£Linfo subfritCgensm^ O) ; 

} 

// 

// user code* sLc.^-: here 
// 

r^nctior handl'^C 

if (field ~ g^t_Ca:Q_info.card_nump { 

if (get_i5ifd„ip^"o.card_num. length != 15") { 

promot.spea] ("amex should nave 15 digits"); 

g3t„CcrfL:/i:CcCard_num = 

} el^^e 

ii" (get_caro_in ■ c.card^num.length != 16) { 
prompt. sps- r {"visa should "have 15 digits"); 
get_card_;:?^c^ c?.r i^num = "; 



function gensrr";o \ 

5tr ' •:LT'!> c:r£di"^.,cai'd type-V" ; 
str += card..**:yoe 'jfciue; str += '"><pumber>' ; 
str -?-=: Ctrd,r^umbei .value; str '</number><expi re>* ; 
str v.- er "oi »>,f^r.te- value; str += 
'</ft:;pi rex/cedit^.ca'"!-^/ £r-l>* : 
return str; 

} 

Yi> 
</3crjpt> 
</fr?ody> 
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SAMPLE ASP+ PAGE 

<%@ Page language^" Jscript " AutoEventWireup="f alse" Xn^i3rits="Credit . Transaction"' %> 
<html><head> 

<! — ASPX page for both voice-only & rrtultimodal credit card example — > 
<script> 

function handle ( ) { 

if (field gsl:_card_:-.nfo. card_nuin) { 

if _caid_info.cara_aur:\. length != 15) { 

v.. -^r.]:*: . -speak ('*aruax shcuid have 15 digits"); 
_ c r cl_i n f o . ca r d _n-u.T. --^ " ; 

} el53 

ii." ; get_c a rd_i r. f o. card_n'.un. length != 16) { 
prompt. spealc ("vise should have 15 digits"); 
get_card_info.card_nujm = '"'/ 

} 

} 

function gensml () { 

str = ' <i;ial><credit_card><card_type>' ; 

str += card_type .value; str += ' </card_type><ni.unber> * ; 

str += 3rird_r'.umber .value; str '</ number ><expire> ' ; 

str expiry_date. value; str x= * </expire></credit_card></sml> ' ; 

return str; 

} 

</script> 

<script runat="server"> 
function Page_LoaG (obj, args) { 
if (PostEr.ck) { 

validator ^ n^w Syscem. Sr.aeoh. SMLValidator (" . /CreditSDL. xml") ; 
dsml = vc. lic'a tor .Evaluate (c^rgs) ; 
Navigate (Choose Page (dsiul) ) ; 
} else { 

// initialize fiel.ds with t-igs 

} 

} 

</script> 

</head> 

<!:ody> 

<sp39ch. form .rd--'"get_card_inf o" 5ty.\f'.--'system_initiative" 
prompt-^*' , /prompt /get Payrr.ent" :\asubmit="gensml ( ) "> 
<spe-^?ch^ '--h: !^ r'>an>o="card_typt?" nrc'op:-.="What credit card would you use?" 
grairri? . / ;ii-am#card_types'" oi?.T::::aseFinish="handle () " 
< op t ioii»Jtie r i c an ixp r e ^ s < / op t i on> 
< :^pt 1 or " Vi s a < / op t i on> 
< ^p t i o •\> Iria s t e r c a r d < / op 1 1 or. > 
< / spe 0'' h '. ch c i C3> 

<speech; l:e--ibo?i nani=:=-'card_iiuiri>sr" prompt="Pleas9 say the number" 

grjjrira5_-=: ' . /gram#digits'' orArh4:aseFxnish="handle ( ) "> 
<£pee^hr^axttox nam€:=="expiry date'' proinpt="What is the expiration date? " 

gra:rm.^r= "' , /gram#dat3s onPnrase Finish=" handle ( ) '*/> 

</ speech : forui> 

</bcdy> 

</htmi> 
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